home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 401-425 / disk_424 / med / programmers / examples / example5.bas < prev    next >
BASIC Source File  |  1992-05-06  |  713b  |  33 lines
  1. REM  This small program demonstrates
  2. REM  how to use "medplayer.library"
  3. REM  with Basic.
  4.  
  5. REM  First copy "medplayer.bmap" from
  6. REM  MEDPlayerLibrary-drawer to LIBS:
  7.  
  8.  
  9. LIBRARY "medplayer.library"
  10.  
  11. DECLARE FUNCTION GetPlayer& LIBRARY
  12. DECLARE FUNCTION LoadModule&() LIBRARY
  13. DECLARE FUNCTION GetCurrentModule&() LIBRARY
  14.  
  15. DEFLNG md,sa
  16.  
  17. PRINT "medplayer.library demonstration"
  18. INPUT "Enter module name";x$
  19. x& = GetPlayer&(1)
  20. IF x& = 0 THEN PRINT "Player allocated." ELSE PRINT "Failed."
  21. a$ = x$+CHR$(0)
  22. sa = SADD(a$)
  23. md = LoadModule&(sa)
  24. PRINT "module loaded, address = ";md
  25. CALL PlayModule(md)
  26. PRINT "Now playing, press any key to quit."
  27. WHILE INKEY$="":WEND
  28. CALL FreePlayer
  29. CALL UnLoadModule(md)
  30. PRINT "Bye!!"
  31. END
  32.  
  33.